function rename =
(
tempname= $Object* as array                             
		    global tempname2=#(tempname.count)       
			for i in 1 to tempname.count do          
			(                                        
			stringt=tempname[i]                      
			tempname2[i]=stringt.name                
			stringt.name="1tempname" + i as string    
			)   


tempname3= $OObject* as array                             
		    global tempname4=#(tempname3.count)       
			for i in 1 to tempname3.count do          
			(                                        
			stringt2=tempname3[i]                      
			tempname4[i]=stringt2.name                
			stringt2.name="2tempname" + i as string    
			)   


tempname5=$morphobj* as array                             
		    global tempname6=#(tempname5.count)       
			for i in 1 to tempname5.count do          
			(                                        
			stringt3=tempname5[i]                      
			tempname6[i]=stringt3.name                
			stringt3.name="3tempname" + i as string    
			) 


tempname7=$CAdata_group* as array                             
		    global tempname8=#(tempname7.count)       
			for i in 1 to tempname7.count do          
			(                                        
			stringt4=tempname7[i]                      
			tempname8[i]=stringt4.name                
			stringt4.name="4tempname" + i as string    
			) 











)                                     
